home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
mstmind
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
15KB
From: Matthew Aaron Wormley <mwormley@nike.calpoly.edu>
Subject: v03i002: mstmind - Mastermind v1.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 1828949052 (verify with brik -cv)
Submitted-by: Matthew Aaron Wormley <mwormley@nike.calpoly.edu>
Posting-number: Volume 3, Issue 2
Archive-name: mstmind/part01
BEGIN_DOC mstmind.doc
Mastermind v1.0 - By Matt Wormley
Here's the classic Logic game, converted for the HP48sx. It converts very
well to the calculator since it is essentially a one player game, that is the
second player is no more than a 'computer' in his actions, while the other does
all the thinking. I wrote this about 6 months ago, but have been too lazy to
post it. I saw another version out and I decided to package up mine and put it
up. I think you'll like it better.
For those of you who have never played Mastermind before - here's how it
goes. The calculator will randomly choose 4 colored pegs (red, blue, green,
yellow, purple, or orange) to be the 'solution'. You will then make successive
guesses until you finally guess the correct solution. You will have a few
hints though. After making your guess, the calculator will tell you how many
of the 'pegs' in your guess are the correct color in the correct position by
giving a black peg for each occurance. It will also tell you how many of the
'pegs' in your guess are the correct color in the incorrect position.
EX: Say the solution is -> R B G P
and you guess -> O B P G
You would recieve 1 black peg and 2 white peg. The blue peg would
represent the Blue (B) peg in your guess since the Blue peg in your guess
appears in the solution in the same position. The white pegs would
represent the Green (G) and Purple (P) pegs in your guess since they do
appear in the solution but NOT in the same position. The trick is that even
though you have the 1 black and 2 white pegs as clues, you don't know WHICH
pegs in your guess that they represent. This is where your logic will help
you 'crack the code'. Through successive guesses, you should be able to
figure out the solution in less than 10 gueses (I have imperically found
that it should be possible to solve it in 6 or less if you are good enough)
ENTERING A GUESS:
Pretty simple really, after pressing 'PLAY' to start the game, you will
soon notice that you must turn the calculator sideways to play the game.
The menu keys enter the color of the peg you wish to place in the position
that the pointer is pointing to. You move the pointer with the up and down
keys (when the calculator is sideways they appear to be left and right) and
you enter the guess with the "down key" (the right key in real life) You
will get 10 guesses and if after that you haven't gotten it... you lose.
That's about the extent of it. I have spent hours in my boaring GE
classes playing this game I hope you get as much out of it as I have.
END_DOC
BEGIN_ASC mstmind.asc
%%HP: T(3)A(R)F(.);
"69A20FF7C02100000040C4F4355440E1B203C000D2000A000000000000401042
10CF10CF1000004E104210C310C31000008F0040104010CF108F000000001000
100010CF10CF1000000000000000000000CF0000100010CF10CF0000008F0040
104010CF108F000000C3000E10C300C30000004D000307594E430E1B207C000E
2000A0000000000000000C710C7100000CF1007008300CF10CF100000CF10CF1
00000CF00001000100E0000100010CF10CF0000000000000000000000CF00001
00010CF10CF0000008F0040104010CF108F000000C3000E10C300C3000000000
06D000300594853047A20E1B20D10007000070000000043A0E30000E1B20D100
07000070000000041A2E30000E1B20D100070000700000000A3A222C100E1B20
D1000700007000000006083600000E1B20D100070000700000000E322E30000E
1B20D10007000070000000040A0E30000E1B209100050000300004060706040E
1B20510003000030000205020E1B20510003000030000207020B213023100504
59445C45450E1B20F70008300070000E31414F7F700F7C1E0F7F700F7F700F7C
081C0F7F700679090F7F7001494F7F7001010F7F710009794F4F400E79090F7F
700F7C081C0F7F72900040B454953540E1B20DF0007000038000FFFFFDFFFF7F
FFFFDFFFF7FFFFFDFFFF70FFFFFDFFFF7B8F38DFFFF7FFFFFDFFFF70B8E6CD5F
B06BA5ECDCBBF638568DD385605FAABDAEBF6BBA7ED3AAF6BBABEDAFBA701802
8D028067C028DC380638068D028060FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70
FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70E01005024F414254450E1B20FF300A
2000B5000000000000000000000000000FF7000000000000000000000FF70000
00000000000000000FF7000000000000000000000FF700000000000000000000
0FF7000000000000000000000FF7000000000000000000000FF7000000000000
000000000FF7000000000000000000000FF7000000000000000000000FF70000
00000000000000000FF7000000000000000000000FF700000000000000000000
0FF7000000000000000000000FF7000000000000000000000FF7000000000000
000000000FF7000000000000000000000FF7000000000000000000000FF70000
00000000000000000FF7000000000000000000000FF700000000000000000000
0FF7000000000000000000000FF7000000000000000000000FF7000000000000
000000000FF7000000000000000000000FF7000000000000000000000FF70000
00000000000000000FF7000000000000000000000FF700000000000000000000
0FF7000000000000000000000FF7000000000000000000000FF7000000000000
00000000000000000000000000000000000000000000000000000000000002E2
E3E3A3A360E3E3C10000E3A2A280A2A2A0A2A222000022A3A2E0E2C323E3E2C1
0000000000000000000000000000000000000000000000020000000000000000
000000E300000000000000000000002200000000000000000000000002140030
05547430D9D20E16321C432D6E2030E657D6D6E2010C6D6E203036F6C6E16326
34E1D6E203036F6C6C53A2EEDA133920100000000000022076BA1D6E2010C6ED
2A2D5CE1803A2EEDA176BA1B9691173A2D6E2010C6ED2A276BA1ED2A2D4EB1F8
8E1803A2EEDA190DA1B9691ED2A2387C184E2030059485D6E2030E657D66C7D1
AE8C1EF53293632B213061100104510D9D20E16324B2A24B2A247A204B2A24B2
A24B2A24B2A2B213078BF19C2A29C2A21C432D6E203016E637D6E2030765756D
6E205026C61636B6D6E20507786964756D6E204016E63766D6E204076575666D
6E2030166607D6E2030766607E16329C2A2803A20A132D6E20301666073CE22D
6E2030765756D6E20301666076C7D1D6E203016E637D6E20301666076C7D1167
E1AFE22D9D20D6E204016E63766D6E20301666079C2A2704D145632D6E204016
E6376697632DCC02D6E204076575666D6E20301666079C2A2704D145632D6E20
407657566697632DCC02D6E205026C61636B69C2A276BA145632D6E205026C61
636B697632DCC02B21305DF22C42329C2A2803A20A132D6E20301666079C2A28
03A20A132D6E20307666073CE22D6E2030166607D6E2030766607167E1F88E1D
6E203016E637D6E20301666076C7D1D6E2030765756D6E20307666076C7D1167
E1D6E204016E63766D6E20301666076C7D1D6E204076575666D6E20307666076
C7D1908E1F88E1387E1387E1AFE22D9D20D6E204016E63766D6E20301666079C
2A2704D145632D6E204016E6376697632DCC02D6E204076575666D6E20307666
079C2A2704D145632D6E20407657566697632DCC02D6E205077869647569C2A2
76BA145632D6E2050778696475697632DCC02B21305DF22C4232C4232D6E2050
26C61636B6D6E20507786964756EF53293632B2130114003034840530D9D20E1
6321C432D6E2030765756D6E2030B65697D6E203036F6C6D6E203007F637E163
2634E1D6E203036F6C6C53A2EEDA133920100000000000022076BA1B9691D6E2
03007F637233A2EEDA133920100000000000021076BA1B9691ED2A2387C184E2
030059485D6E2030B656976C7D1AE8C1D6E2030765756D6E203007F637D6E203
0B65697704D1EF53293632B2130C21002005D420D9D20E16321C432D6E203036
F6C6D6E203007F637E1632634E1D6E203036F6C6C53A2EEDA133920100000000
000003076BA1B9691E4A20510001100000000000000ED2A2387C1E4A20510007
000000000000000E4A2051000B100000000000000614E1AE8C1634E1D6E20303
6F6C6C53A2EEDA133920100000000000003076BA1B9691D6E203007F637233A2
EEDA133920100000000000031076BA1B9691ED2A2387C184E2030059485743A2
6C7D1AE8C1EF53293632B21309710040241434B440D9D20E1632F52E1634E147
A20E4A20510000000000000000000E4A20510009300000000000000B213084E2
040B4549535AE8C1634E147A20E4A20510002100000000000000E4A2051000E0
00000000000000B213084E205024F4142544AE8C1634E147A20E4A2051000500
0000000000000E4A20510000000000000000000B213084E2050459445C454AE8
C147A20E4A20510000000000000000000E4A20510000000000000000000B2130
0F2E193632B2130171004005C4149540D9D20E16323392010000000000000495
D2C147A204B2A24B2A24B2A24B2A2B213078BF19C2A24B2A2803A24B2A21C432
D6E203016E637D6E2030765756D6E203036F6C6D6E2030B65697D6E203007F63
7D6E20307796E6E16329C2A2803A20A132D6E203036F6C69B1C1233A2EEDA19C
2A276BA1D6BB1C4232803A2387C145632D6E203016E63797632DCC0284E20402
41434B49C2A23392010000000000000100A132D6E203036F6C647A204B2A24B2
A24B2A24B2A2B213045632D6E203076575697632DCC02D6E203036F6C6D6E203
007F63784E202005D43C0324B2A2F17A1D6BB145632D6E2030B6569797632DCC
02D8732D9D203CE22D6E2030B65697339201000000000000110B9DE1D6E2030B
65697339201000000000000610CFCE1387E1AFE22D9D20D6E2030765756D6E20
30B6569733920100000000000001090DA1D6E203036F6C6D6E203007F63784E2
03034840545632D6E203076575697632DCC02B21305DF223CE22D6E2030B6569
7339201000000000000520167E1AFE22D9D209C2A2D6E203007F637167E1803A
2EEDA1D6E203007F63776BA19C2A290DA145632D6E203007F63797632DCC02D6
E203036F6C6D6E203007F63784E202005D4B21305DF223CE22D6E2030B656973
39201000000000000530167E1AFE22D9D20803A2D6E203007F637167E15C3A2E
EDA1D6E203007F63776BA19C2A276BA145632D6E203007F63797632DCC02D6E2
03036F6C6D6E203007F63784E202005D4B21305DF22B21305DF22DE032D6E203
0B65697339201000000000000630167E1D6E2030765756B7FC18DBF1387E1387
E1387E1387E19B632634E1D6E203036F6C6C53A2EEDA13392010000000000000
3076BA1B9691E4A20510001100000000000000ED2A2387C1E4A2051000700000
0000000000E4A2051000C100000000000000614E1AE8C1D6E203016E637D6E20
3076575684E2010454B2A21C432D6E205026C61636B6D6E20507786964756D6E
2010C6E163233032D6E205026C61636B6D6E2010C6D5CE1D5032D9D20173A245
632D6E2010C6976324F802D6E203036F6C684E2030055474B21304963233032D
6E205026C61636B6D6E2050778696475676BA1D6E2010C6D5CE1D5032D9D20C5
3A245632D6E2010C6976324F802D6E203036F6C684E2030055474B2130496323
CE22D6E205026C61636B6803A2279E1AFE22D9D20D6E203036F6C645632D6E20
307796E697632DCC0233920100000000000001045632D6E203036F6C697632DC
C02B21305DF22EF532C42329C2A2803A20A132D6E203007F637634E1E4A20510
004100000000000000D6E203007F637233A2EEDA133920100000000000021076
BA1B9691ED2A2387C184E2030059485D6E203016E637D6E203007F6376C7D16C
7D1AE8C1C4232634E147A20E4A20510003700000000000000E4A205100060000
00000000000B21303CE22D6E20307796E6AFE2284E20307594E45BF2284E2040
C4F435545DF22AE8C14B2A2F17A18DBF1EF53293632B213039A6"
END_ASC
BYTES: #6A93h 3427.5
BEGIN_UU mstmind.uue
begin 644 mstmind
M2%!(4#0X+466*O!_#!(````$3$]3100>*S`,`"T`H`````````0!)`'\`?P!=
M``#D`20!/`$\`0``^``$`00!_`'X``````$``0`!_`'\`0````````````#\P
M```!``'\`?P```#X``0!!`'\`?@````\`.`!/``\````U``P<)7D-."Q`L<`3
MX`(`"@````````#`%\`7``#`'P`'@`/`'\`?``#`'\`?``#`#P`0`!``#@`0N
M`!#`'\`/`````````````,`/`!``$,`?P`\``(`/0!!`$,`?@`\``,`#`![`,
M`\`#`````&`-``-025@#="K@L0(=`'````<```!`H^`#`."Q`AT`<```!P``T
M`$"AX@,`X+$"'0!P```'````H*,BP@'@L0(=`'````<```!@@&,``."Q`AT`G
M<```!P```.`CX@,`X+$"'0!P```'````0*#@`P#@L0(9`%````,`0&!P8$#@^
ML0(5`#````,`(%`@X+$"%0`P```#`"!P(+`2`S(!4$"51,545."Q`G\`@`,`4
M!P#@$Q3T]P?PQ^'P]P?P]P?PQX#!\/<'8)>0\/<'$)3T]P<0$/#W%P"0E_3TN
M!."7D/#W!_#'@,'P]R<)``1+15E3!!XKT`\`!P`P"`#__]____?___W_?___P
MW___!___W___M_B#_?]____?__\'BV[<]0NV6L[-NV^#9=@]6`;UJMOJ^[:KD
MYSVJ;[NZWOJK!X$@V"`(=@R"S8-@@V#8(`@&___?___W___]_W___]___P?_O
M_]____?___W_?___W___!PX!4"#T%"1%5."Q`O\#H`(`6P``````````````H
M``#P?P````````````#P?P````````````#P?P````````````#P?P``````(
M``````#P?P````````````#P?P````````````#P?P````````````#P?P``(
M``````````#P?P````````````#P?P````````````#P?P````````````#PY
M?P````````````#P?P````````````#P?P````````````#P?P``````````5
M``#P?P````````````#P?P````````````#P?P````````````#P?P``````(
M``````#P?P````````````#P?P````````````#P?P````````````#P?P``(
M``````````#P?P````````````#P?P````````````#P?P````````````#PY
M?P````````````#P?P````````````#P?P````````````#P?P``````````5
M``#P?P```````````````````````````````````````````````"`N/CXZ6
M.@8^/AP``#XJ*@@J*@HJ*B(``"(Z*@XN/#(^+AP`````````````````````U
M`````````"```````````````#X``````````````"(````````````````@G
M00`#4$5'`YTMX&$CP332Y@(#;G5M;2X0P-;F`@-C;VP>-F)#'FTN,##VQL8U(
M*NZM,9,"`0``````(`)GJ]'F`@%LWJ+2Q1X(H^+>&F>KL6D9<:/2Y@(!;-ZB_
M<K8:WJ+2Y!N/Z($P*NZMD=`:FY;A+2J#QX'D`@-025AM+C#@5M=F?!WJR.%?$
M(SDVLA(#%@$00!70V0(>-D(K*K2B0J<"M*)"*RJTHD(K*BLQ<+@?R:*2+"K!:
M--+F`@-A;G-M+C!P5E?6Y@(%8FQA8VMM+E!PAY9&5];F`@1A;G-F;2Y`<%97L
M9M;F`@-A9G!M+C!P9@;G82/)HH(P*J`QTN8"`V%F<,,NTN8"`V=U96TN,!!F4
M!F=\'6TN,!#F-M?F`@-A9G#&UQ%V'OHNTMD";2Y`$.8V9];F`@-A9G#)HG)`.
M'50VTN8"!&%N<V9Y-M+,(&TN0'!65V;6Y@(#869PR:)R0!U4-M+F`@1G=65F4
M>3;2S"!M+E`@QA8VMI8L*F>K064C;2Y0(,86-K:69R/-#+(2`]4OPB0CR:*"M
M,"J@,=+F`@-A9G#)HH(P*J`QTN8"`V=F<,,NTN8"`V%F<&TN,'!F!A=V'H_HV
MT>8"`V%N<VTN,!!F!F=\'6TN,'!65];F`@-G9G#&UQ%V'FTN0!#F-F?6Y@(#,
M869PQM?1Y@($9W5E9FTN,'!F!F=\'0GH\8@>@^<Q>![Z+M+9`FTN0!#F-F?6,
MY@(#869PR:)R0!U4-M+F`@1A;G-F>3;2S"!M+D!P5E=FUN8"`V=F<,FB<D`=/
M5#;2Y@($9W5E9GDVTLP@;2Y0<(>61E>6+"IGJT%E(VTN4'"'ED97EF<CS0RR)
M$@/5+\(D(TPRTN8"!6)L86-K;2Y0<(>61E?F7R,Y-K(2`Q$$,#"$!#70V0(>5
M-A),(VTN,'!65];F`@-K97EM+C`P]L;6Y@(#<&]S'C9B0QYM+C`P]L;&-2KN4
MK3&3`@$``````"`"9ZNQ:1EM+C``]S8G,RKNK3&3`@$``````"`!9ZNQ:1G>"
MHC)X'$@N,`"5A-7F`@-K97G&UZ&.'&TN,'!65];F`@-P;W-M+C"P5I9W0!W^T
M-9)C(RLQP!(``E!-`ITMX&$CP332Y@(#8V]L;2XP`/<VYV$C-N31Y@(#8V]L-
M7*/BWAHS*1`````````P<+8:FY;AI`(5`!`!````````X"TJ@\?AI`(5`'``-
M````````X*0"%0"P`0```````&!!'NK(84,>;2XP,/;&QC4J[JTQDP(!````[
M`````V>KL6D9;2XP`/<V)S,J[JTQDP(!```````P`6>KL6D9WJ(R>!Q(+C``\
ME81U-"K&UZ&.'/XUDF,C*S&0%P`$0D%#2P2=+>!A(U_B84,>="K@I`(5````J
M````````X*0"%0"0`P```````+`2`T@N0+!4E#6ECAPVY$&G`DXJ4`$`$@``S
M``````!.*E`!``X`````````*S&`Y`(%0D]!4D3JR&%#'G0JX*0"%0!0````)
M`````."D`A4```````````"P$@-(+E!`E43%5*2.''0JX*0"%0``````````&
M`."D`A4```````````"P$@/PXI%C(RLQ$!<`!%!,05D$G2W@82,S*1``````S
M``!`62T<="I`*RJTHD(K*K2BLA(#A_N1+"JTHH(P*K2B$DPC;2XP$.8VU^8"3
M`V=U96TN,##VQM;F`@-K97EM+C``]S;7Y@(#=VEN'C:2+"H(HP(:(VTN,##VI
MQI8;'#*CXMX:R:)RMAIMN\$D(PBC,G@<5#;2Y@(#86YS>3;2S"!(+D`@%#2T@
ME"PJ,RD0````````$``:(VTN,##VQD:G`K2B0BLJM*)"*RHK,4!E(VTN,'!67
M5Y9G(\T,TN8"`V-O;&TN,`#W-H?D`@)03<,P0BLJ'Z?1MAM4-M+F`@-K97EY^
M-M+,((TWTMD"PR[2Y@(#:V5Y,RD0````````$;#9'FTN,+!6EC>3`@$`````+
M`&`!_.PQ>![Z+M+9`FTN,'!65];F`@-K97DS*1`````````0D-`:;2XP,/;&0
MUN8"`W!O<T@N,#"$!$5E(VTN,'!65Y9G(\T,LA(#U2\R[")M+C"P5I8WDP(!\
M``````!0`F'GH>\BG2V0+"IM+C``]S87=AX(H^+>&FTN,`#W-G>V&LFBDM`:&
M5#;2Y@(#<&]S>3;2S"!M+C`P]L;6Y@(#<&]S2"X@`-6T$@/5+S+L(FTN,+!6H
MEC>3`@$``````%`#8>>A[R*=+8`P*FTN,`#W-A=V'L6CXMX:;2XP`/<V=[8:]
MR:)RMAI4-M+F`@-P;W-Y-M+,(&TN,##VQM;F`@-P;W-(+B``U;02`]4OLA(#5
MU2_2#B-M+C"P5I8WDP(!``````!@`V'GT>8"`V=U97O/@;T?@^<Q>!Z#YS%XF
M'KDV8D,>;2XP,/;&QC4J[JTQDP(!`````````V>KL6D93BI0`0`1````````)
M`-ZB,G@<3BI0`0`'`````````$XJ4`$`'``````````6Y*&.'&TN,!#F-M?FS
M`@-G=65(+A!`12LJP332Y@(%8FQA8VMM+E!PAY9&5];F`@%L'C8R`R-M+E`@^
MQA8VMM;F`@%L7>S1!2.=+1`W*E0VTN8"`6QY-D*/(&TN,##VQH;D`@-014<K*
M,4!I(S,PTN8"!6)L86-K;2Y0<(>61E=VMAIM+A#`UL4>73#2V0)<HT)E(VTN`
M$,"69R/T"-+F`@-C;VQ(+C``572T$@.4-C+L(FTN4"#&%C:VAC`J<NFA[R*=7
M+=#F`@-C;VQ4-M+F`@-W:6YY-M+,(#,I$````````!!`92-M+C`P]L:69R/-"
M#+(2`]4OXE\C3#*2+"H(HP(:(VTN,`#W-F=#'DXJ4`$`%`````````!M+C``,
M]S8G,RKNK3&3`@$``````"`!9ZNQ:1G>HC)X'$@N,`"5A-7F`@-A;G-M+C``1
M]S9G?!W&UZ&.'$PR8D,>="K@I`(5`#`'````````X*0"%0!@`````````+`2$
M`\,NTN8"`W=I;OHN@N0"`U=)3K4O@N0"!$Q/4T75+Z*.'+2B\G$:V/OA7R,YK
$-K(2`[(2G
``
end
END_UU